excel vba批量提取文件夹下文件名-excel vba提取文件夹下的文件夹名

excel单子表格能很好的进行数据分析。作为Office的的组件，excel 自带vba代码编写。可以处理很多非表格处理的问题。

有时候我们需要提取某文件夹下的所有文件夹名称，然后对文件夹改名或者其他处理

下面示例将“F:excel教程”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列

Sub 提取文件夹名称()
    Dim fs As Object
    n = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.getfolder("F:excel教程")
    For Each fd In f.subfolders
        Cells(n, 1) = fd.Name
        n = n + 1
    Next
    Set f = Nothing
    Set fs = Nothing
End Sub

打开VBE编辑器，复制源码到模块，直接运行源码效果图